home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / spitfire / pb-2fpc.zip / PB-SF.PAS < prev   
Pascal/Delphi Source File  |  1995-04-04  |  3KB  |  88 lines
  1. {Converter program - ProBoard Door.Sys To Spitfire Sfdoors.Dat}
  2. {For Use with SF-ROM}
  3. {(C) 1995 Brian Leiter, All Rights Reserved}
  4.  
  5. Program PB_SF;
  6. Uses Dos;
  7. Var DoorSYS     : Array[1..52] of String[40];
  8.     F1,F2       : Text;
  9.     Count,Code  : Integer;
  10.     S           : String;
  11.     I,H2,M2,
  12.     SecSinceMid : LongInt;
  13.     H,M,S2,Hund : Word;
  14. Procedure TimeIs;
  15. Begin
  16.   GetTime(H,M,S2,Hund);
  17.   H2:=H*360;
  18.   H2:=H2*10;
  19.   M2:=M*60;
  20.   SecSinceMid:=H2+M2;
  21. End;
  22. Procedure Start;
  23. Begin
  24.   GetDir(0,S);
  25.   Assign(F1,'DOOR.SYS');
  26.   FileMode:=2;
  27.   {$I-}Reset(F1){$I+};
  28.   If IOResult <> 0 Then
  29.   Begin
  30.     Writeln('■ ERROR ■ DOOR.SYS Was Not Found!');
  31.     Halt;
  32.   End
  33.   Else
  34.   For Count:=1 To 52 Do Readln(F1,DoorSYS[Count]);
  35.   Assign(F2,'SFDOORS.DAT');
  36.   Rewrite(F2);
  37.   Writeln(F2,DoorSys[26]);                    {User RecNum}
  38.   Writeln(F2,DoorSys[10]);                    {User Full Name}
  39.   Writeln(F2,'PASSWORD');                     {Fake Password}
  40.   Writeln(F2,DoorSys[10]);                    {Fake First Name}
  41.   Writeln(F2,DoorSys[2]);                     {User Baud Rate}
  42.   If DoorSys[1]='COM0:'Then Writeln(F2,'0');  {Comport}
  43.   If DoorSys[1]='COM1:'Then Writeln(F2,'1');
  44.   If DoorSys[1]='COM2:'Then Writeln(F2,'2');
  45.   If DoorSys[1]='COM3:'Then Writeln(F2,'3');
  46.   If DoorSys[1]='COM4:'Then Writeln(F2,'4');
  47.   If DoorSys[1]='COM5:'Then Writeln(F2,'5');
  48.   If DoorSys[1]='COM6:'Then Writeln(F2,'6');
  49.   If DoorSys[1]='COM7:'Then Writeln(F2,'7');
  50.   If DoorSys[1]='COM8:'Then Writeln(F2,'8');
  51.   Writeln(F2,DoorSys[19]);                    {Time Left}
  52.   Writeln(F2,SecSinceMid);                    {Sec Since Mid}
  53.   Writeln(F2,S,'\');                          {Path}
  54.   If DoorSys[20]='GR' Then Writeln(F2,'TRUE') {ANSI}
  55.   Else Writeln(F2,'FALSE');
  56.   Writeln(F2,DoorSys[15]);                    {Security}
  57.   Writeln(F2,DoorSys[28]);                    {Uploads}
  58.   Writeln(F2,DoorSys[29]);                    {Downloads}
  59.   Writeln(F2,DoorSys[19]);                    {Time}
  60.   Writeln(F2,SecSinceMid);                    {Mid}
  61.   Writeln(F2,'0');                            {ExtraTime}
  62.   Writeln(F2,'FALSE');                        {SysOp Next}
  63.   Writeln(F2,'TRUE');                         {FrontEnd}
  64.   Writeln(F2,'FALSE');                        {Softflow}
  65.   Writeln(F2,DoorSys[5]);                     {Locked MaxBaud}
  66.   If DoorSys[38]='Y' Then Writeln(F2,'TRUE')  {Error Correction}
  67.   Else Writeln(F2,'FALSE');
  68.   Writeln(F2,'1');                            {LastMsg}
  69.   Writeln(F2,'1');                            {LastFile}
  70.   Writeln(F2,DoorSys[4]);                     {Node}
  71.   Writeln(F2,'0');                            {Files}
  72.   Writeln(F2,DoorSys[47]);                    {DL Today}
  73.   Writeln(F2,DoorSys[31]);                    {Daily Limit KB Day}
  74.   Writeln(F2,DoorSys[30]);                    {Daily KB Total}
  75.   Writeln(F2,DoorSys[48]);                    {Total KB UL}
  76.   Writeln(F2,DoorSys[49]);                    {Total KB DL}
  77.   Writeln(F2,DoorSys[12]);                    {Phone}
  78.   Writeln(F2,DoorSys[11]);                    {Location}
  79.   Writeln(F2,DoorSys[19]);                    {Maxtime}
  80.   Writeln(F2,'FALSE');                        {RIP}
  81.   Close(F1);
  82.   Close (F2);
  83.   Halt;
  84. End;
  85. Begin
  86.   Timeis;
  87.   Start;
  88. End.